home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / langs / clisp-c.zoo / floatpri.fas < prev    next >
Encoding:
CLISP byte-compiled Lisp program  |  1993-06-05  |  3.9 KB  |  60 lines
  1. (SYSTEM::VERSION '(SYSTEM::CLISP2 14. LISP:T 210292.))
  2. #Y(#:TOP-LEVEL-FORM-1 #13Y(00 00 00 00 00 01 D4 36 02 30 07 19 01) "SYSTEM")
  3. #Y(#:TOP-LEVEL-FORM-2 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  4.    DECODE-FLOAT-DECIMAL REMOVE-OLD-DEFINITIONS
  5.    #Y(DECODE-FLOAT-DECIMAL
  6.       #635Y(00 01 00 00 00 02 A9 30 D8 3E 03 AA 23 00 80 C3 AA 6A E8 AB D6 6A
  7.             E6 8D 00 8E 01 D4 A9 6A E8 AD 86 28 09 AB D6 6A E6 78 AC 01 C0 EA
  8.             8E 06 A8 6A B3 AE D6 6A E6 6B 01 2E 01 06 89 06 80 9D AF 86 A8 81
  9.             6A AF D8 87 01 30 81 A2 AF E5 6B 02 35 D0 14 78 C8 02 DA AB 6B 00
  10.             34 78 AF 03 14 6A E8 B0 6B 00 34 88 01 2F 08 7D 02 AB DA 79 02 35
  11.             03 B1 AC 6B 02 35 B0 B2 6B 01 34 6A E6 78 AB 01 B2 AC 6B 02 35 6A
  12.             AC B0 78 E6 00 01 02 AB DA 6A C9 AB DA 6A C8 A9 A9 87 01 2F 81 5B
  13.             16 02 AB AB 85 28 81 A1 89 08 81 A7 B1 86 A8 81 BB B5 89 02 81 C4
  14.             98 14 6B 02 35 B2 30 AB 14 6A E6 6A AB E8 30 E6 EA 14 6A A5 A8 6A
  15.             63 A9 A9 AA B1 6B 02 33 BC 3C 04 19 16 D5 D6 D4 D4 3C 04 19 05 D7
  16.             1A 23 B0 D9 6B 02 35 C4 1A 31 B0 D8 87 01 30 72 B0 DB 6B 02 35 C6
  17.             1A 23 B0 DE 6B 02 35 C9 1A 1B A8 D6 78 E6 00 B5 A9 79 02 33 06 B0
  18.             85 A8 5B B0 DD 87 01 2F 63 B0 E0 6B 02 35 CB 14 6A C8 78 AC 03 E2
  19.             AF B2 6A E8 6B 03 33 B1 A9 6A F7 6B 02 35 AD AA 6A F8 6B 02 35 6B
  20.             01 34 78 AE 00 A8 B0 6A D3 36 01 78 CB 06 EA DA B0 6A E6 88 01 30
  21.             07 AD DA 78 C8 05 7C 03 8D 05 B3 6B 02 35 6A AC AF B3 6B 02 33 6B
  22.             00 34 6A E6 78 AB 02 8E 05 B4 6B 02 35 AF 6B 00 34 78 E6 01 8E 05
  23.             B3 6B 02 35 6A AC AF B3 6B 02 33 6B 00 34 6A E6 6A AB AB 87 01 2D
  24.             FF 6E A9 8E 06 B5 6B 02 35 B0 6B 00 34 6A E6 87 01 2D FF 5C 16 01
  25.             1A FE E4 AF DE 6B 02 35 C9 1A 0C AF DD 87 01 2F 72 AF E3 6B 02 35
  26.             CE 14 78 C8 02 DA AB 78 AF 03 D6 B0 6A E6 AC 88 01 2D 07 7D 02 AB
  27.             DA 78 C8 03 B1 B0 6A E6 AC B2 6A E6 6A C8 78 AB 01 B2 B0 6A E6 6A
  28.             AC AC 78 C8 00 1A FE 9D AF D9 6B 02 35 C4 1A FE 5B 93 EF 92 EE 7C
  29.             06 75 03 16 02 DA AB DA 78 C8 01 14 6B 02 35 AC 88 01 30 FE 8D 7C
  30.             04 A8 6A A5 A8 6A 63 A8 A8 B0 6B 02 33 1A 04 92 EC 16 01 8E 01 AC
  31.             A9 69 35 23 13 73 16 01 A9 AB 88 01 2D 06 AB D4 AB 77 50 03 AB AA
  32.             AA 5E 16 3C 04 19 18 95 1A FE 79 A8 DA 30 C8 1A 09 AE B6 6B 02 35
  33.             89 02 72 92 EA D6 B1 31 01 34 1A FE 59 DA AF 31 02 35 1A 08 B5 B2
  34.             6A E6 89 02 72 98 14 30 CB 1A FE 4C AE DA 30 C8 1A FE 36
  35.            )
  36.       0. "0" 1. 16. -970. 3. 10. 21306. 70777. 22000. 28. 93. 12655. 42039. 9.
  37.       4004. 13301. 643. 2136. #\0 -1.
  38.   )  )
  39. #Y(#:TOP-LEVEL-FORM-3 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  40.    WRITE-FLOAT REMOVE-OLD-DEFINITIONS
  41.    #Y(WRITE-FLOAT
  42.       #230Y(00 02 00 00 00 03 A9 86 38 2F A9 2D 01 3E 04 A8 24 02 04 D7 AF 2F
  43.             8D D8 AA D9 6B 02 2F 8A 00 04 AA 86 A7 19 89 00 37 C7 14 A8 AD 87
  44.             01 2D 32 AD B1 36 02 2F 8E AC 1A 80 42 D4 AA 5A 01 DA B0 2F 8D DB
  45.             B0 2F 8D AA 1A 06 DA B1 2F 8D 7C 00 A8 24 08 76 16 01 AC B0 36 02
  46.             2F 8E C6 EC 1A 34 94 1A 47 AD B1 36 01 AB 2F 8E DB B1 2F 8D AD B1
  47.             AA 36 01 2F 8E 1A 15 DA B2 2F 8D 7C 00 A8 AA 86 28 75 16 01 DB B1
  48.             2F 8D DA B1 2F 8D AB A9 79 01 34 03 16 01 0E 0A 25 0B 26 AE 86 39
  49.             22 1A 0A AE 86 3A 1C 1A 04 AE 86 3B 16 CA 1A 24 CB 1A 21 CC 1A 1E
  50.             CD 1A 1B CE 1A 18 00 19 09 AE 85 3C 6A AE 85 39 69 AE 85 3A 68 AE
  51.             85 3B 67 AE 85 3C 66 00 14 8A 01 04 A8 23 0C 60 A8 B1 2F 8D AB 36
  52.             0B CF EE 74 05 BC 2F 85 19 09
  53.            )
  54.       "argument is not a float: ~S" DECODE-FLOAT-DECIMAL -1. #\- -2. 7. #\0 #\.
  55.       0. 1. *READ-DEFAULT-FLOAT-FORMAT*
  56.       #S(HASH-TABLE EQ (LONG-FLOAT . 35.) (DOUBLE-FLOAT . 13.)
  57.          (SINGLE-FLOAT . 7.) (SHORT-FLOAT . 1.)
  58.         )
  59.       #\E #\s #\f #\d #\L 10.
  60.   )  )